home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Journey to the Planets (B&N)
/
Journey to the Planets (1994)(Multicom)[Mac-PC].iso
/
pc
/
pluto
/
pluto.hc
/
stack.txt
< prev
Wrap
Text File
|
1994-03-10
|
5KB
|
239 lines
-- stack: in.hc
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=192, y1=144, x2=832, y2=624)
-- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
-- card dimensions: w=640 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2813
-- card count: 9
-- first card id: 2999
-- list block id: 5743
-- print block id: 4035
-- font table block id: 3392
-- style table block id: 3281
-- free block count: 2
-- free size: 9408 bytes
-- total size: 24576 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x02108000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x5B27BCE4
----- HyperTalk script -----
----------------------------------------------------------------------------
----------------------------Multicom Publishing Inc.®-----------------------
----------------------------------------------------------------------------
-------------------------------System Handlers:-----------------------------
on openStack
hide menuBar
hide titleBar
set the userlevel to 5
colorizeHC
initGlobals
openPicture
resetSystemPalette
loadPalette
loadTxt
plutoSnd
end openStack
on resetSystemPalette
set cursor to busy
picture "SYSTEM_COLORS",resource,rect,false,8
set the rect of window "SYSTEM_COLORS" to "639,479,640,480"
show window "SYSTEM_COLORS" -- show is needed to reset palette!
close window "SYSTEM_COLORS"
noPaintWhite
if there is a window "black" then close window "black"
end resetSystemPalette
on closeStack
spinCursor
noPaintWhite
if there is a window "pluMenu" then close window "pluMenu"
end closeStack
on openPicture winName -- handle openPicture sent by Picture XCMD
global gCurrWindow
if winName <> "SYSTEM_COLORS" then
put winName into gCurrWindow
end if
end openPicture
on colorizeHC
global gOKToColorize
if (gOKToColorize is empty) then pass colorizeHC
end colorizeHC
on initGlobals
global gGlobalsOK
if gGlobalsOK is true then exit initGlobals
if LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilites
put true into gGlobalsOK
end initGlobals
--------------------------Navigational Handlers---------------------------
on loadPalette
noPaintWhite
palette "pluMenu", "0,417" --opens navigational palette
if there is a window "runMenu" then close window "runMenu"
end loadPalette
on prepWin
picture "black",resource,rect,false,8 --draws a black screen before showing thumbnail
set rect of window "black" to "0,0,640,480"
noPaintWhite
show window "black"
end prepWin
on quit
doMenu "Quit HyperCard"
end quit
on goNext
lock Screen
go next
unlock Screen
end goNext
on goPrev
lock Screen
go previous
unlock Screen
end goPrev
on goBack
lock Screen
go to card "Main Menu" --takes you to this stack main menu
unlock Screen
end goBack
on goEvent
play "mouseClick"
lock screen
go to cd "MAIN MENU"
unlock screen
end goEvent
on goSolar
lock screen
go stack "HOME"
unlock screen
end goSolar
on loadTxt
global marker, printField
put "PLANETS:PLUTO:PLUTO.TXT" into marker
put "PLUTO" into printField
end loadTxt
---------------------------Check Environment Handlers----------------------
on cHCinstall
-- Check for correct environment
set cursor to busy
--
if checkEnviron() is not "OK" then
go Home
getHomeInfo
exit to HyperCard
end if
set cursor to busy
--
repeat until the lockScreen is false
unlock screen
end repeat
--
end cHCinstall
on plutoSnd
global switch
if switch > 0 then
exit plutoSnd
end if
QTMovie OpenMovie,Plain,"PLANETS:AUDIO:PLUTO211KHz Movie", "1005,1005", nocontroller,dontPaintWhite,closeOnFinish
set the visible of window "PLUTO211KHz Movie" to false
end plutoSnd